From: Kenichi Handa Date: Thu, 18 Jun 2009 07:21:49 +0000 (+0000) Subject: Cancel the unexpected changes. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~342 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=fece46ff08e175f14ebb2bb1e66784f7852d38a8;p=emacs.git Cancel the unexpected changes. --- diff --git a/lisp/language/korean.el b/lisp/language/korean.el index e8e78bfc47b..2a1c96c9757 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -43,6 +43,7 @@ (define-coding-system-alias 'euc-kr 'korean-iso-8bit) (define-coding-system-alias 'euc-korea 'korean-iso-8bit) +(define-coding-system-alias 'cp949 'korean-iso-8bit) (define-coding-system 'iso-2022-kr "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." @@ -57,14 +58,6 @@ (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) -(define-coding-system 'korean-cp949 - "CP949 (Microsoft Unified Hangul Code)" - :coding-type 'charset - :mnemonic ?K - :charset-list '(ascii cp949)) - -(define-coding-system-alias 'cp949 'korean-cp949) - (set-language-info-alist "Korean" '((setup-function . setup-korean-environment-internal) (exit-function . exit-korean-environment)